home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / graphics / clip.h next >
Text File  |  1990-11-01  |  955b  |  49 lines
  1. {$if not def GRAPHICS_CLIP_H}
  2. Const GRAPHICS_CLIP_H=0;
  3. {$if not def GRAPHICS_GFX_H;incl"graphics/gfx.h";endif}
  4. {$if not def EXEC_SEMAPHORES_H;incl"exec/semaphores.h";endif}
  5. Const NEWLOCKS='?';
  6.  CR_NEEDS_NO_CONCEALED_RASTERS=1;
  7.  ISLESSX=1;
  8.  ISLESSY=2;
  9.  ISGRTRX=4;
  10.  ISGRTRY=8;
  11. Type
  12. p_Layer=^Layer;
  13. p_ClipRect=^ClipRect;
  14. Layer=Record
  15.  front,back:p_Layer;
  16.  ClipRect:p_ClipRect;
  17.  rp:Ptr;
  18.  bounds:Rectangle;
  19.  reserved:string[4];
  20.  priority,Flags:Word;
  21.  SuperBitMap:p_BitMap;
  22.  SuperClipRect:p_ClipRect;
  23.  Window:Ptr;
  24.  Scroll_X,Scroll_Y:integer;
  25.  cr,cr2,crnew:p_ClipRect;
  26.  SuperSaveClipRects:p_ClipRect;
  27.  _cliprects:p_ClipRect;
  28.  Layer_Info:Ptr;
  29.  Lock:SignalSemaphore;
  30.  reserved3:string[8];
  31.  ClipRegion:Ptr;
  32.  saveClipRects:Ptr;
  33.  reserved2:string[22];
  34.  DamageList:Ptr
  35. End;
  36. ClipRect=Record
  37.  Next,prev:p_ClipRect;
  38.  lobs:p_Layer;
  39.  BitMap:p_BitMap;
  40.  bounds:RectAngle;
  41.  _p1,_p2:p_ClipRect;
  42.  reserved:Long;
  43.  {$if def NEWCLIPRECTS_1_1}
  44.  Flags:Long;
  45.  {$endif}
  46. End;
  47. {$endif}
  48.  
  49.